home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 19 / CD_ASCQ_19_010295.iso / dos / prg / pas / swag / mouse.swg / 0006_The easy Mouse unit.pas < prev    next >
Pascal/Delphi Source File  |  1993-08-27  |  696b  |  46 lines
  1. {
  2. MIKE BURNS
  3.  
  4. > How did you get a mouse Pointer into your Program?
  5. }
  6.  
  7.  
  8. Procedure Clear_Regs;
  9. begin
  10.   FillChar(Regs, SizeOf(Regs), 0);
  11. end;
  12.  
  13.  
  14. Function InitMouse : Boolean;
  15. begin
  16.   Clear_Regs;
  17.  
  18.   Regs.AX := 00;
  19.   Intr ($33, Regs);
  20.   if Regs.AX <> 0 then            { if not 0 then YES THERE IS A MOUSE }
  21.   begin
  22.     InitMouse := True;
  23.     MbutS     := BX;              { Number of buttons on the mouse }
  24.   end
  25.   else
  26.   begin
  27.     InitMouse := False;
  28.     Mbuts     := 0;
  29.   end;
  30. end;
  31.  
  32.  
  33. Procedure ShowMouse;
  34.  begin
  35.   Clear_Regs;
  36.   Regs.AX := 01;
  37.   Intr ($33, Regs);
  38. end;
  39.  
  40. Procedure HideMouse;
  41.  begin
  42.   Clear_Regs;
  43.   Regs.AX := 02;
  44.   Intr ($33, Regs);
  45. end;
  46.